
Partial Class CreateUser
    Inherits System.Web.UI.Page

    Protected Sub CreateUserWizard1_CreatedUser(ByVal sender As Object, ByVal e As System.EventArgs) Handles CreateUserWizard1.CreatedUser

        Dim userProfile As ProfileCommon = Profile.GetProfile(CreateUserWizard1.UserName)
        userProfile.MemberName = userProfile.UserName

    End Sub

End Class
